(*Code pour Exercice 2, série 8*)
normV=(Sqrt[(((Cos[2  π z]+ρ Cos [ψ+2  π z]))^2)+(((-Sin[2  π z]+ρ Sin [ψ+2  π z]))^2)])
normI=(Sqrt[(((Cos[2  π z]-ρ Cos [ψ+2  π z]))^2)+(((-Sin[2  π z]-ρ Sin [ψ+2  π z]))^2)])
case1={ρ->2/3,ψ-> 0 };
case2={ρ->1/3,ψ-> 0 };
case3={ρ->0,ψ-> 0 };
case4={ρ->1/3,ψ-> Pi };
case5={ρ->2/3,ψ-> Pi };
case6={ρ->1/(Sqrt[5]),ψ-> ArcTan[2] };
case7={ρ->1/(Sqrt[5]),ψ-> -ArcTan[2] };
Plot[{normV//.case1, normI//. case1},{z,-1,0}, PlotRange->{{-1,0},{0,2}},PlotLegends->{"Abs(V)","Abs(I)"},PlotLabel->"(Subscript[Z, L])=5(Subscript[Z, 0])",AxesLabel->{z/λ}]
Plot[{normV//.case2, normI//. case2},{z,-1,0}, PlotRange->{{-1,0},{0,2}},PlotLegends->{"Abs(V)","Abs(I)"},PlotLabel->"(Subscript[Z, L])=2(Subscript[Z, 0])",AxesLabel->{z/λ}]
Plot[{normV//.case3, normI//. case3},{z,-1,0}, PlotRange->{{-1,0},{0,2}},PlotLegends->{"Abs(V)","Abs(I)"},PlotLabel->"(Subscript[Z, L])=(Subscript[Z, 0])",AxesLabel->{z/λ}]
Plot[{normV//.case4, normI//. case4},{z,-1,0}, PlotRange->{{-1,0},{0,2}},PlotLegends->{"Abs(V)","Abs(I)"},PlotLabel->"(Subscript[Z, L])=0.5(Subscript[Z, 0])",AxesLabel->{z/λ}]
Plot[{normV//.case5, normI//. case5},{z,-1,0}, PlotRange->{{-1,0},{0,2}},PlotLegends->{"Abs(V)","Abs(I)"},PlotLabel->"(Subscript[Z, L])=0.2(Subscript[Z, 0])",AxesLabel->{z/λ}]
Plot[{normV//.case6, normI//. case6},{z,-1,0}, PlotRange->{{-1,0},{0,2}},PlotLegends->{"Abs(V)","Abs(I)"},PlotLabel->"(Subscript[Z, L])=(Subscript[Z, 0])+(Subscript[IZ, 0])",AxesLabel->{z/λ}]
Plot[{normV//.case7, normI//. case7},{z,-1,0}, PlotRange->{{-1,0},{0,2}},PlotLegends->{"Abs(V)","Abs(I)"},PlotLabel->"(Subscript[Z, L])=(Subscript[Z, 0])-(Subscript[IZ, 0])",AxesLabel->{z/λ}]
Print["Les charges résistives ont un maximum de tension ((Subscript[R, L])>(Subscript[Z, 0])) ou un minimum de tension ((Subscript[R, L])<(Subscript[Z, 0])) au niveau de la position de la charge. Ce n'est pas le cas de charges réactives. On remarque que le premier extremum de tension pour une charge inductive est un maximum de tension. Pour une charge capacitive, c'est un minimum. "]